home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Suzy B Software 2
/
Suzy B Software CD-ROM 2 (1994).iso
/
stos
/
stos_88
/
fia
/
fia_mk.bas
(
.txt
)
Wrap
Atari STOS Basic
|
1989-11-22
|
91KB
|
472 lines
10 CURS
100 REM *** intro ***
1000 REM ***REDS TURN***
10000 PEN
10002 IF
10004 IF
10006 IF
10008 IF
10010 IF
10012 IF
10014 IF
10016 IF
10018 IF
10020 IF
10022 IF
10024 IF
10026 IF
10028 IF
10030 IF
10032 RETURN
1005 GOSUB
1010 IF
110 EXTENSION (Index #0) (Token 0x80)
140 DEF
15 CLEAR
15000 EXTENSION (Index #0) (Token 0x80)
15010 REPEAT
16000 IF
16002 IF
16004 IF
16006 RETURN
16010 IF
16012 IF
16014 IF
16016 RETURN
16020 IF
16022 IF
16024 IF
16026 RETURN
16030 IF
16032 IF
16034 IF
16036 RETURN
1640 RETURN
17000 IF
17002 IF
17004 IF
17006 IF
17008 IF
17010 IF
17012 IF
17014 IF
17016 IF
17018 RETURN
17020 IF
17022 IF
17024 IF
17026 IF
17028 IF
17030 IF
17032 IF
17034 IF
17036 IF
17038 RETURN
17040 IF
17042 IF
17044 IF
17046 IF
17048 IF
17050 IF
17052 IF
17054 IF
17056 IF
17058 RETURN
17060 IF
17062 IF
17064 IF
17066 IF
17068 IF
17070 IF
17072 IF
17074 IF
17076 IF
17078 RETURN
190 VARNAME
200 SCROLL
2000 REM ***BLUESTURN***
20000 PEN
20002 IF
20004 IF
20006 IF
20008 IF
20010 IF
20012 IF
20014 IF
20016 IF
20018 IF
20020 IF
20022 IF
20024 IF
20026 IF
20028 IF
20030 IF
20032 RETURN
2005 GOSUB
2010 IF
2020 VARNAME
225 IF
227 IF
230 SCROLL
300 VARNAME
310 SYNCHRO
315 GOTO
5 KEY
500 FADE
5000 REM *** RED1 ***
5010 IF
5012 IF
5014 IF
5016 IF
5018 IF
5020 IF
5022 IF
5024 IF
5026 IF
5028 IF
5030 IF
5031 IF
5032 IF
5034 IF
5036 IF
5038 IF
5040 IF
5042 IF
5044 IF
5046 IF
5048 IF
5050 IF
5052 IF
5054 IF
5056 IF
5058 IF
5060 IF
5062 IF
5064 IF
5066 IF
5068 IF
5070 IF
5072 IF
5074 IF
5076 IF
5078 IF
5090 IF
510 SPRITE
5100 REM *** RED2 ***
5110 IF
5112 IF
5114 IF
5116 IF
5118 IF
5120 IF
5122 IF
5124 IF
5126 IF
5128 IF
5130 IF
5131 IF
5132 IF
5134 IF
5136 IF
5138 IF
5140 IF
5142 IF
5144 IF
5146 IF
5148 IF
5150 IF
5152 IF
5154 IF
5156 IF
5158 IF
5160 IF
5162 IF
5164 IF
5166 IF
5168 IF
5170 IF
5172 IF
5174 IF
5176 IF
5178 IF
5190 IF
5200 REM *** RED3 ***
5210 IF
5212 IF
5214 IF
5216 IF
5218 IF
5220 IF
5222 IF
5224 IF
5226 IF
5228 IF
5230 IF
5231 IF
5232 IF
5234 IF
5236 IF
5238 IF
5240 IF
5242 IF
5244 IF
5246 IF
5248 IF
5250 IF
5252 IF
5254 IF
5256 IF
5258 IF
5260 IF
5262 IF
5264 IF
5266 IF
5268 IF
5270 IF
5272 IF
5274 IF
5276 IF
5278 IF
5290 IF
5300 REM *** RED4 ***
5310 IF
5312 IF
5314 IF
5316 IF
5318 IF
5320 IF
5322 IF
5324 IF
5326 IF
5328 IF
5330 IF
5331 IF
5332 IF
5334 IF
5336 IF
5338 IF
5340 IF
5342 IF
5344 IF
5346 IF
5348 IF
5350 IF
5352 IF
5354 IF
5356 IF
5358 IF
5360 IF
5362 IF
5364 IF
5366 IF
5368 IF
5370 IF
5372 IF
5374 IF
5376 IF
5378 IF
5390 IF
5500 REM *** BLUE1 ***
5510 IF
5512 IF
5514 IF
5516 IF
5518 IF
5520 IF
5522 IF
5524 IF
5526 IF
5528 IF
5530 IF
5531 IF
5532 IF
5534 IF
5536 IF
5538 IF
5540 IF
5542 IF
5544 IF
5546 IF
5548 IF
5550 IF
5552 IF
5554 IF
5556 IF
5558 IF
5560 IF
5562 IF
5564 IF
5566 IF
5568 IF
5570 IF
5572 IF
5574 IF
5576 IF
5578 IF
5590 IF
5600 REM *** BLUE2 ***
5610 IF
5612 IF
5614 IF
5616 IF
5618 IF
5620 IF
5622 IF
5624 IF
5626 IF
5628 IF
5630 IF
5631 IF
5632 IF
5634 IF
5636 IF
5638 IF
5640 IF
5642 IF
5644 IF
5646 IF
5648 IF
5650 IF
5652 IF
5654 IF
5656 IF
5658 IF
5660 IF
5662 IF
5664 IF
5666 IF
5668 IF
5670 IF
5672 IF
5674 IF
5676 IF
5678 IF
5690 IF
5700 REM *** BLUE3 ***
5710 IF
5712 IF
5714 IF
5716 IF
5718 IF
5720 IF
5722 IF
5724 IF
5726 IF
5728 IF
5730 IF
5731 IF
5732 IF
5734 IF
5736 IF
5738 IF
5740 IF
5742 IF
5744 IF
5746 IF
5748 IF
5750 IF
5752 IF
5754 IF
5756 IF
5758 IF
5760 IF
5762 IF
5764 IF
5766 IF
5768 IF
5770 IF
5772 IF
5774 IF
5776 IF
5778 IF
5790 IF
5800 REM *** BLUE4 ***
5810 IF
5812 IF
5814 IF
5816 IF
5818 IF
5820 IF
5822 IF
5824 IF
5826 IF
5828 IF
5830 IF
5831 IF
5832 IF
5834 IF
5836 IF
5838 IF
5840 IF
5842 IF
5844 IF
5846 IF
5848 IF
5850 IF
5852 IF
5854 IF
5856 IF
5858 IF
5860 IF
5862 IF
5864 IF
5866 IF
5868 IF
5870 IF
5872 IF
5874 IF
5876 IF
5878 IF
5890 IF
600 IF
60000 DATA
60010 DATA
60020 DATA
60030 DATA
610 GOTO
620 SPRITE
7000 REM *** reds turn ***
7005 GOSUB
7010 IF
7020 IF
7030 GOTO
7100 GOSUB
7110 IF
7120 IF
7130 VARNAME
7200 GOSUB
7210 IF
7220 IF
7230 VARNAME
7300 GOSUB
7310 IF
7320 IF
7330 VARNAME
7400 GOSUB
7410 IF
7420 IF
7430 VARNAME
7500 REM *** BLUESturn ***
7505 GOSUB
7510 IF
7520 IF
7530 GOTO
7600 GOSUB
7610 IF
7620 IF
7630 VARNAME
7700 GOSUB
7710 IF
7720 IF
7730 VARNAME
7800 GOSUB
7810 IF
7820 IF
7830 VARNAME
7900 GOSUB
7910 IF
7920 IF
7930 VARNAME
8000 MUSIC
8100 MUSIC